inherited FPedidoCompraNovo: TFPedidoCompraNovo
  Left = 223
  Top = 90
  AutoScroll = False
  Caption = 'Pedido de Compra'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Top = 79
        Height = 349
        Columns = <
          item
            Expanded = False
            FieldName = 'PED_CODIGO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_SOLICITANTE_DESC'
            Width = 230
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_FORNECEDOR_DESC'
            Width = 300
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_DATA'
            Width = 90
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'PED_CRITERIO'
            Title.Alignment = taCenter
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_VALOR_PEDIDO'
            Title.Alignment = taRightJustify
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_SOLICITACAO'
            Visible = True
          end>
      end
      inherited pnPesquisaPadrao: TPanel
        Height = 79
        object GroupBox1: TGroupBox
          Left = 690
          Top = 16
          Width = 147
          Height = 58
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 3
          object CheckBox1: TCheckBox
            Tag = 1
            Left = 1
            Top = 8
            Width = 145
            Height = 17
            Caption = 'Sem Autoriza'#231#227'o'
            Color = clYellow
            ParentColor = False
            TabOrder = 0
            OnClick = CheckBox1Click
          end
          object CheckBox2: TCheckBox
            Tag = 1
            Left = 1
            Top = 24
            Width = 145
            Height = 17
            Caption = 'Autorizado'
            Color = clLime
            ParentColor = False
            TabOrder = 1
            OnClick = CheckBox1Click
          end
          object CheckBox3: TCheckBox
            Tag = 1
            Left = 1
            Top = 40
            Width = 145
            Height = 17
            Caption = 'N'#227'o Autorizado'
            Color = clGray
            ParentColor = False
            TabOrder = 2
            OnClick = CheckBox1Click
          end
        end
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited BtnIncluir: TBitBtn
            Left = 3
          end
          inherited BtnFechar: TBitBtn
            Left = 663
          end
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
          object BtnEmissao: TBitBtn
            Left = 310
            Top = 5
            Width = 116
            Height = 25
            Caption = 'Emiss'#227'o'
            TabOrder = 6
            OnClick = BtnEmissaoClick
            Glyph.Data = {
              36010000424D3601000000000000760000002800000012000000100000000100
              040000000000C000000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF008F0000000000
              0000080000008F7777777777777708000000F77777777777777770000000F888
              88888888888880000000F8A288888808080880000000F88FFFFFFFFFFFFF8000
              0000FFF8888888888888FF000000888FFFFFFFFFFFF788000000888F88888888
              88F788000000888FFFFFFFFFFFF788000000888F8888888888F788000000888F
              FFFFFFFFFFF788000000888F8888888888F788000000888FFFFFFFFFF7778800
              0000888FFFFFFFFFF7F888000000888FFFFFFFFFF78888000000}
          end
        end
        inherited panel3: TPanel
          Top = 393
          Height = 91
          inherited BtnConsuta: TBitBtn
            TabOrder = 1
            OnClick = BtnConsutaClick
          end
          inherited BtnSalvar: TBitBtn
            Top = 11
          end
          inherited BtnCancelar: TBitBtn
            Top = 11
            TabOrder = 3
          end
          inherited stSituacaoReg2: TStaticText
            TabOrder = 2
          end
          object btnMudarSituacao: TBitBtn
            Left = 6
            Top = 36
            Width = 131
            Height = 25
            Caption = 'Encerrar Pedido'
            TabOrder = 4
            OnClick = btnMudarSituacaoClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
              33333333777777733333333330CCC03333333333F7777733F3333330330C0330
              33333337337773373333333333303333333333F33337333333F3303333333333
              3033373333333333373333333333333333333F3333333333333F033333333333
              3303733333333333337333333333333333333F3333333333333F033333333333
              3303733333333333FF7333333333333000333FFFFF33333777FF000003333307
              B70377777F333377777F09990333330BBB0377777F333377777F099903333307
              B70377777F3333777773099903333330003377777F3333377733000003333330
              3333777773F3F3F7333333333030303333333333373737333333}
            NumGlyphs = 2
          end
          object BitBtn7: TBitBtn
            Left = 6
            Top = 11
            Width = 131
            Height = 25
            Caption = 'Autoriza'
            TabOrder = 5
            OnClick = BitBtn7Click
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
              555555555555555555555555555555555555555555FF55555555555559055555
              55555555577FF5555555555599905555555555557777F5555555555599905555
              555555557777FF5555555559999905555555555777777F555555559999990555
              5555557777777FF5555557990599905555555777757777F55555790555599055
              55557775555777FF5555555555599905555555555557777F5555555555559905
              555555555555777FF5555555555559905555555555555777FF55555555555579
              05555555555555777FF5555555555557905555555555555777FF555555555555
              5990555555555555577755555555555555555555555555555555}
            NumGlyphs = 2
          end
          object BitBtn8: TBitBtn
            Left = 138
            Top = 11
            Width = 131
            Height = 25
            Caption = 'N'#227'o Autoriza'
            TabOrder = 6
            OnClick = BitBtn8Click
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333333333333333333333333333333FFF33FF333FFF339993370733
              999333777FF37FF377733339993000399933333777F777F77733333399970799
              93333333777F7377733333333999399933333333377737773333333333990993
              3333333333737F73333333333331013333333333333777FF3333333333910193
              333333333337773FF3333333399000993333333337377737FF33333399900099
              93333333773777377FF333399930003999333337773777F777FF339993370733
              9993337773337333777333333333333333333333333333333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
          end
        end
        object PCPedido: TPageControl
          Left = 1
          Top = 36
          Width = 842
          Height = 357
          ActivePage = TAbertura
          Align = alClient
          TabOrder = 2
          object TAbertura: TTabSheet
            Caption = 'Pedido'
            OnShow = TAberturaShow
            object Label1: TLabel
              Left = 62
              Top = 3
              Width = 27
              Height = 16
              Caption = 'Data'
            end
            object Label3: TLabel
              Left = 2
              Top = 5
              Width = 40
              Height = 16
              Caption = 'Codigo'
            end
            object Label10: TLabel
              Left = 2
              Top = 164
              Width = 76
              Height = 16
              Caption = 'Data Entrega'
            end
            object lbFornecedor: TLabel
              Left = 2
              Top = 117
              Width = 92
              Height = 16
              Caption = 'Fornecedor (F8)'
            end
            object Label20: TLabel
              Left = 118
              Top = 164
              Width = 133
              Height = 16
              Caption = 'Condi'#231#245'es Pagto. Dias'
            end
            object Label21: TLabel
              Left = 262
              Top = 164
              Width = 12
              Height = 16
              Caption = '%'
            end
            object Label29: TLabel
              Left = 380
              Top = 164
              Width = 30
              Height = 16
              Caption = 'Frete'
            end
            object Label30: TLabel
              Left = 530
              Top = 117
              Width = 68
              Height = 16
              Caption = 'Observa'#231#227'o'
            end
            object Label2: TLabel
              Left = 384
              Top = 117
              Width = 45
              Height = 16
              Caption = 'Contato'
            end
            object QtdObs: TLabel
              Left = 760
              Top = 114
              Width = 65
              Height = 16
              Alignment = taRightJustify
              AutoSize = False
            end
            object DBDTData: TDBDateEdit
              Left = 62
              Top = 23
              Width = 100
              Height = 23
              DataField = 'PED_DATA'
              DataSource = dsCadastro
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 1
            end
            object DBDatePrevisao: TDBDateEdit
              Left = 2
              Top = 180
              Width = 111
              Height = 23
              DataField = 'PED_DATAENTREGA'
              DataSource = dsCadastro
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 7
            end
            object DBLCBFornecedor: TDBLookupComboBox
              Left = 2
              Top = 134
              Width = 375
              Height = 22
              Ctl3D = False
              DataField = 'PED_FORNECEDOR'
              DataSource = dsCadastro
              KeyField = 'FORN_CODIGO'
              ListField = 'FORN_RAZAO'
              ListSource = DSFornecedor
              ParentCtl3D = False
              TabOrder = 4
              OnExit = DBLCBFornecedorExit
              OnKeyDown = DBLCBFornecedorKeyDown
            end
            object edCodigo: TDBEdit
              Left = 2
              Top = 23
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'PED_CODIGO'
              DataSource = dsCadastro
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 0
            end
            object gbSolicitacao: TGroupBox
              Left = 2
              Top = 47
              Width = 463
              Height = 66
              Caption = '  Solicita'#231#227'o  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 3
              object Label15: TLabel
                Left = 16
                Top = 16
                Width = 18
                Height = 16
                Caption = 'N'#186':'
              end
              object Label16: TLabel
                Left = 65
                Top = 16
                Width = 31
                Height = 16
                Caption = 'Data:'
              end
              object DBText3: TDBText
                Left = 16
                Top = 32
                Width = 43
                Height = 17
                DataField = 'PED_SOLICITACAO'
                DataSource = dsCadastro
              end
              object DBText4: TDBText
                Left = 65
                Top = 32
                Width = 50
                Height = 16
                AutoSize = True
                DataField = 'PED_DATASOLICITACAO'
                DataSource = dsCadastro
              end
              object Label17: TLabel
                Left = 137
                Top = 16
                Width = 110
                Height = 16
                Caption = 'Solicitante / Motivo'
              end
              object DBText5: TDBText
                Left = 137
                Top = 32
                Width = 312
                Height = 16
                DataField = 'SOL_SOLICITANTE_DESC'
                DataSource = dsSolicitacao
              end
              object DBText1: TDBText
                Left = 137
                Top = 48
                Width = 312
                Height = 16
                DataField = 'SOL_MOTIVO_DESC'
                DataSource = dsSolicitacao
              end
              object DBText7: TDBText
                Left = 64
                Top = 32
                Width = 65
                Height = 17
                DataField = 'SOL_DATA'
                DataSource = dsSolicitacao
              end
            end
            object edCondPagto: TDBEdit
              Left = 118
              Top = 181
              Width = 136
              Height = 22
              Ctl3D = False
              DataField = 'PED_CONDPAGTO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 8
            end
            object edPerCondPagto: TDBEdit
              Left = 259
              Top = 181
              Width = 117
              Height = 22
              Ctl3D = False
              DataField = 'PED_PERCONDPAGTO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 9
            end
            object edFrete: TDBEdit
              Left = 380
              Top = 181
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'PED_FRETE'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 10
            end
            object edObs: TDBMemo
              Left = 530
              Top = 134
              Width = 297
              Height = 69
              Ctl3D = False
              DataField = 'PED_OBS'
              DataSource = dsCadastro
              MaxLength = 255
              ParentCtl3D = False
              TabOrder = 6
              OnEnter = edObsEnter
              OnExit = edObsExit
              OnKeyPress = edObsKeyPress
              OnKeyUp = edObsKeyUp
            end
            object gbCriterio: TGroupBox
              Left = 470
              Top = 2
              Width = 67
              Height = 44
              Caption = ' Crit'#233'rio '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 2
              object DBText6: TDBText
                Left = 1
                Top = 22
                Width = 65
                Height = 17
                Alignment = taCenter
                DataField = 'PED_CRITERIO'
                DataSource = dsCadastro
              end
            end
            object GroupBox2: TGroupBox
              Left = 543
              Top = 2
              Width = 159
              Height = 44
              Caption = '  Itens  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 11
              object lbQuantidade: TLabel
                Left = 8
                Top = 22
                Width = 39
                Height = 16
                Caption = 'Quant.'
              end
              object DBText12: TDBText
                Left = 96
                Top = 22
                Width = 57
                Height = 16
                Alignment = taRightJustify
                AutoSize = True
                DataField = 'PED_VALOR_TOT_ITENS'
                DataSource = dsCadastro
              end
            end
            object GroupBox3: TGroupBox
              Left = 168
              Top = 2
              Width = 183
              Height = 44
              Caption = '  Situa'#231#227'o  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 12
              object DBText2: TDBText
                Left = 88
                Top = 22
                Width = 90
                Height = 17
                DataField = 'PED_DATASITUACAO'
                DataSource = dsCadastro
              end
              object lbSituacao: TLabel
                Left = 4
                Top = 22
                Width = 84
                Height = 16
                AutoSize = False
                Caption = 'ENCERRADO'
              end
            end
            object GroupBox4: TGroupBox
              Left = 357
              Top = 2
              Width = 108
              Height = 44
              Caption = '  Tipo  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 13
              object lbTipo: TLabel
                Left = 4
                Top = 22
                Width = 100
                Height = 16
                Alignment = taCenter
                AutoSize = False
                BiDiMode = bdRightToLeft
                Caption = 'EMERGENCIAL'
                ParentBiDiMode = False
              end
            end
            object GroupBox5: TGroupBox
              Left = 472
              Top = 47
              Width = 153
              Height = 66
              Caption = '  Comprador  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 14
              object DBText8: TDBText
                Left = 8
                Top = 32
                Width = 137
                Height = 17
                DataField = 'PED_COMPRADOR'
                DataSource = dsCadastro
              end
            end
            object GroupBox6: TGroupBox
              Left = 631
              Top = 47
              Width = 71
              Height = 66
              Caption = ' Origem '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 15
              object lbOrigem: TLabel
                Left = 5
                Top = 32
                Width = 61
                Height = 16
                Alignment = taCenter
                AutoSize = False
              end
            end
            object GroupBox7: TGroupBox
              Left = 2
              Top = 203
              Width = 825
              Height = 40
              Caption = ' 1'#170' Autoriza'#231#227'o - Nivel 2 '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 16
              object DBText43: TDBText
                Left = 8
                Top = 18
                Width = 143
                Height = 17
                DataField = 'PED_AUT1_AUTORI_DESC'
                DataSource = dsCadastro
              end
              object DBMemo5: TDBMemo
                Tag = 3
                Left = 169
                Top = 11
                Width = 648
                Height = 26
                BorderStyle = bsNone
                Color = clBtnFace
                DataField = 'PED_AUT1_OBS'
                DataSource = dsCadastro
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Arial'
                Font.Style = []
                ParentFont = False
                ReadOnly = True
                TabOrder = 0
              end
            end
            object GroupBox8: TGroupBox
              Left = 708
              Top = 2
              Width = 117
              Height = 44
              Caption = ' Pedido '
              Color = clBtnFace
              Ctl3D = False
              ParentColor = False
              ParentCtl3D = False
              TabOrder = 17
              object StaticText1: TStaticText
                Left = 4
                Top = 22
                Width = 110
                Height = 18
                Alignment = taCenter
                AutoSize = False
                BorderStyle = sbsSingle
                Caption = 'Sem Autoriza'#231#227'o'
                Color = clYellow
                ParentColor = False
                TabOrder = 0
              end
            end
            object edContato: TDBEdit
              Left = 384
              Top = 134
              Width = 137
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PED_CONTATO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 5
            end
            object GroupBox20: TGroupBox
              Left = 1
              Top = 243
              Width = 825
              Height = 40
              Caption = ' 2'#170' Autoriza'#231#227'o - Nivel 2 '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 18
              object DBText44: TDBText
                Left = 8
                Top = 18
                Width = 143
                Height = 17
                DataField = 'PED_AUT2_AUTORI_DESC'
                DataSource = dsCadastro
              end
              object DBMemo6: TDBMemo
                Tag = 3
                Left = 169
                Top = 11
                Width = 648
                Height = 26
                BorderStyle = bsNone
                Color = clBtnFace
                DataField = 'PED_AUT2_OBS'
                DataSource = dsCadastro
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Arial'
                Font.Style = []
                ParentFont = False
                ReadOnly = True
                TabOrder = 0
              end
            end
            object GroupBox21: TGroupBox
              Left = 1
              Top = 283
              Width = 825
              Height = 40
              Caption = ' Autoriza'#231#227'o Nivel 3 '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 19
              object DBText45: TDBText
                Left = 8
                Top = 18
                Width = 143
                Height = 17
                DataField = 'PED_AUT3_AUTORI_DESC'
                DataSource = dsCadastro
              end
              object DBMemo7: TDBMemo
                Tag = 3
                Left = 169
                Top = 11
                Width = 648
                Height = 26
                BorderStyle = bsNone
                Color = clBtnFace
                DataField = 'PED_AUT3_OBS'
                DataSource = dsCadastro
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Arial'
                Font.Style = []
                ParentFont = False
                ReadOnly = True
                TabOrder = 0
              end
            end
            object RLReport1: TRLReport
              Left = -32
              Top = 308
              Width = 794
              Height = 1123
              DataSource = DSRelatorio
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              Margins.TopMargin = 5.000000000000000000
              ShowProgress = False
              object RLBand1: TRLBand
                Left = 38
                Top = 19
                Width = 718
                Height = 109
                BandType = btColumnHeader
                Borders.Sides = sdCustom
                Borders.DrawLeft = False
                Borders.DrawTop = False
                Borders.DrawRight = False
                Borders.DrawBottom = True
                Borders.FixedBottom = True
                object RLDBText1: TRLDBText
                  Left = 8
                  Top = 8
                  Width = 134
                  Height = 19
                  DataField = 'EMP_FANTASIA'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -17
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  Text = '-'
                  BeforePrint = RLDBText1BeforePrint
                end
                object RLDBText3: TRLDBText
                  Left = 8
                  Top = 27
                  Width = 472
                  Height = 18
                  AutoSize = False
                  DataField = 'EMP_ENDERECO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -16
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText3BeforePrint
                end
                object RLDBText4: TRLDBText
                  Left = 8
                  Top = 43
                  Width = 472
                  Height = 18
                  AutoSize = False
                  DataField = 'EMP_ENDERECO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -16
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText4BeforePrint
                end
                object RLDBText5: TRLDBText
                  Left = 8
                  Top = 59
                  Width = 472
                  Height = 18
                  AutoSize = False
                  DataField = 'EMP_ENDERECO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -16
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText5BeforePrint
                end
                object RLDBText6: TRLDBText
                  Left = 8
                  Top = 75
                  Width = 472
                  Height = 18
                  AutoSize = False
                  DataField = 'EMP_ENDERECO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -16
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText6BeforePrint
                end
                object RLDBText7: TRLDBText
                  Left = 512
                  Top = 5
                  Width = 201
                  Height = 19
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'EMP_ENDERECO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -17
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText7BeforePrint
                end
                object RLDBText8: TRLDBText
                  Left = 512
                  Top = 26
                  Width = 201
                  Height = 20
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'EMP_ENDERECO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -17
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText8BeforePrint
                end
              end
              object RLBand2: TRLBand
                Left = 38
                Top = 128
                Width = 718
                Height = 86
                BandType = btColumnHeader
                Borders.Sides = sdCustom
                Borders.DrawLeft = False
                Borders.DrawTop = False
                Borders.DrawRight = False
                Borders.DrawBottom = True
                Borders.FixedBottom = True
                object RLLabel2: TRLLabel
                  Left = 8
                  Top = 2
                  Width = 62
                  Height = 15
                  Caption = 'Forncedor:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText9: TRLDBText
                  Left = 84
                  Top = 2
                  Width = 75
                  Height = 14
                  DataField = 'FORN_RAZAO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel3: TRLLabel
                  Left = 8
                  Top = 18
                  Width = 59
                  Height = 15
                  Caption = 'Endere'#231'o:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object edEndereco: TRLDBText
                  Left = 84
                  Top = 18
                  Width = 91
                  Height = 14
                  DataField = 'FORN_ENDERECO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel4: TRLLabel
                  Left = 8
                  Top = 34
                  Width = 39
                  Height = 15
                  Caption = 'Bairro:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object edBairro: TRLDBText
                  Left = 84
                  Top = 34
                  Width = 253
                  Height = 14
                  AutoSize = False
                  DataField = 'FORN_BAIRRO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel5: TRLLabel
                  Left = 342
                  Top = 34
                  Width = 46
                  Height = 15
                  Caption = 'Cidade:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object edCidade: TRLDBText
                  Left = 400
                  Top = 34
                  Width = 242
                  Height = 14
                  AutoSize = False
                  DataField = 'FORN_CIDADE'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel6: TRLLabel
                  Left = 648
                  Top = 34
                  Width = 19
                  Height = 14
                  Caption = 'UF:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object edUF: TRLDBText
                  Left = 672
                  Top = 34
                  Width = 41
                  Height = 14
                  AutoSize = False
                  DataField = 'FORN_ESTADO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel7: TRLLabel
                  Left = 8
                  Top = 50
                  Width = 65
                  Height = 15
                  Caption = 'CNPJ/CPF:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText14: TRLDBText
                  Left = 400
                  Top = 50
                  Width = 242
                  Height = 14
                  AutoSize = False
                  DataField = 'FORN_INSCESTADUAL'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel8: TRLLabel
                  Left = 342
                  Top = 50
                  Width = 53
                  Height = 15
                  Caption = 'Insc. Est:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText15: TRLDBText
                  Left = 84
                  Top = 50
                  Width = 253
                  Height = 14
                  AutoSize = False
                  DataField = 'FORN_CPFCNPJ'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel9: TRLLabel
                  Left = 8
                  Top = 66
                  Width = 34
                  Height = 15
                  Caption = 'Fone:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText16: TRLDBText
                  Left = 84
                  Top = 66
                  Width = 253
                  Height = 14
                  AutoSize = False
                  DataField = 'FORN_FONE'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel31: TRLLabel
                  Left = 342
                  Top = 18
                  Width = 31
                  Height = 15
                  Caption = 'CEP:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object edCep: TRLDBText
                  Left = 400
                  Top = 18
                  Width = 56
                  Height = 14
                  DataField = 'FORN_CEP'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
              end
              object RLBand3: TRLBand
                Left = 38
                Top = 214
                Width = 718
                Height = 24
                BandType = btColumnHeader
                Borders.Sides = sdCustom
                Borders.DrawLeft = False
                Borders.DrawTop = False
                Borders.DrawRight = False
                Borders.DrawBottom = True
                Borders.FixedBottom = True
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -15
                Font.Name = 'Arial'
                Font.Style = []
                ParentFont = False
                object RLLabel10: TRLLabel
                  Left = 508
                  Top = 3
                  Width = 22
                  Height = 15
                  Alignment = taRightJustify
                  Caption = 'Qtd'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel11: TRLLabel
                  Left = 138
                  Top = 3
                  Width = 59
                  Height = 15
                  Caption = 'Descri'#231#227'o'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel12: TRLLabel
                  Left = 538
                  Top = 3
                  Width = 60
                  Height = 15
                  Caption = 'Vr Unit'#225'rio'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel13: TRLLabel
                  Left = 624
                  Top = 3
                  Width = 44
                  Height = 15
                  Caption = 'Vr Total'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel14: TRLLabel
                  Left = 9
                  Top = 3
                  Width = 44
                  Height = 15
                  Alignment = taCenter
                  Caption = 'C'#243'digo'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel1: TRLLabel
                  Left = 684
                  Top = 3
                  Width = 32
                  Height = 15
                  Alignment = taCenter
                  Caption = '% IPI'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel32: TRLLabel
                  Left = 62
                  Top = 3
                  Width = 26
                  Height = 15
                  Alignment = taCenter
                  Caption = 'Ref.'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel33: TRLLabel
                  Left = 373
                  Top = 3
                  Width = 68
                  Height = 15
                  Caption = 'Localiza'#231#227'o'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel19: TRLLabel
                  Left = 456
                  Top = 3
                  Width = 32
                  Height = 15
                  Caption = 'Unid.'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
              end
              object RLBand4: TRLBand
                Left = 38
                Top = 238
                Width = 718
                Height = 19
                Borders.Sides = sdCustom
                Borders.DrawLeft = False
                Borders.DrawTop = False
                Borders.DrawRight = False
                Borders.DrawBottom = True
                Borders.FixedBottom = True
                object RLDBText17: TRLDBText
                  Left = 400
                  Top = 2
                  Width = 128
                  Height = 14
                  Alignment = taRightJustify
                  DataField = 'ITENS_PED_QUANTIDADE'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText18: TRLDBText
                  Left = 138
                  Top = 2
                  Width = 229
                  Height = 14
                  AutoSize = False
                  DataField = 'PROD_DESCRICAOSAI'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText19: TRLDBText
                  Left = 532
                  Top = 2
                  Width = 66
                  Height = 14
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'ITENS_PED_VALOR'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText20: TRLDBText
                  Left = 584
                  Top = 2
                  Width = 83
                  Height = 14
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'ITENS_PED_VALOR_TOTAL'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText21: TRLDBText
                  Left = 2
                  Top = 2
                  Width = 56
                  Height = 14
                  Alignment = taCenter
                  AutoSize = False
                  DataField = 'PROD_CODIGO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText10: TRLDBText
                  Left = 63
                  Top = 3
                  Width = 68
                  Height = 14
                  AutoSize = False
                  DataField = 'PROD_REFERENCIA'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText2: TRLDBText
                  Left = 373
                  Top = 2
                  Width = 80
                  Height = 14
                  AutoSize = False
                  DataField = 'PROD_LOCALIZACAO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText11: TRLDBText
                  Left = 672
                  Top = 2
                  Width = 45
                  Height = 14
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'ITENS_PED_PERC_IPI'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText13: TRLDBText
                  Left = 456
                  Top = 2
                  Width = 32
                  Height = 14
                  AutoSize = False
                  DataField = 'PROD_UNIDSAIDA'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
              end
              object RLBand6: TRLBand
                Left = 38
                Top = 257
                Width = 718
                Height = 383
                AlignToBottom = True
                BandType = btSummary
                object RLLabel16: TRLLabel
                  Left = 262
                  Top = 225
                  Width = 192
                  Height = 14
                  AutoSize = False
                  Caption = 
                    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' +
                    '- - - - '
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel17: TRLLabel
                  Left = 246
                  Top = 236
                  Width = 230
                  Height = 11
                  Alignment = taCenter
                  AutoSize = False
                  Caption = 'Assinatura de Aprova'#231#227'o'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel18: TRLLabel
                  Left = 8
                  Top = 236
                  Width = 230
                  Height = 11
                  Alignment = taCenter
                  AutoSize = False
                  Caption = 'Assinatura do Solicitante'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel15: TRLLabel
                  Left = 27
                  Top = 225
                  Width = 192
                  Height = 14
                  AutoSize = False
                  Caption = 
                    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' +
                    '- - - - '
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLTotalItens: TRLLabel
                  Left = 471
                  Top = 37
                  Width = 70
                  Height = 14
                  Caption = 'Total do Itens:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBResultTotalItens: TRLDBResult
                  Left = 544
                  Top = 37
                  Width = 171
                  Height = 14
                  Alignment = taRightJustify
                  DataField = 'ITENS_PED_VALOR_TOTAL'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  Info = riSum
                  ParentFont = False
                end
                object RLLTotalICMS: TRLLabel
                  Left = 471
                  Top = 55
                  Width = 80
                  Height = 14
                  Caption = 'Outros Valores:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBTextDesconto: TRLDBText
                  Left = 608
                  Top = 88
                  Width = 107
                  Height = 14
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'PED_VALOR_DESC0NTO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBTextDescontoBeforePrint
                end
                object RLLabelTracejado: TRLLabel
                  Left = 472
                  Top = 120
                  Width = 245
                  Height = 15
                  Alignment = taRightJustify
                  AutoSize = False
                  Caption = 
                    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' +
                    '- - - - - - - -'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabelValorPedido: TRLLabel
                  Left = 471
                  Top = 133
                  Width = 93
                  Height = 15
                  Caption = 'Valor do Pedido:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -12
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel24: TRLLabel
                  Left = 4
                  Top = 25
                  Width = 26
                  Height = 14
                  Caption = 'Obs:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel29: TRLLabel
                  Left = 499
                  Top = 225
                  Width = 192
                  Height = 14
                  AutoSize = False
                  Caption = 
                    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' +
                    '- - - - '
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLLabel30: TRLLabel
                  Left = 483
                  Top = 236
                  Width = 230
                  Height = 11
                  Alignment = taCenter
                  AutoSize = False
                  Caption = 'Assinatura do Fornecedor'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBMemoObs: TRLMemo
                  Left = 5
                  Top = 38
                  Width = 460
                  Height = 168
                  AutoSize = False
                  Behavior = []
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBMemoObsBeforePrint
                end
                object RLDrawLinhaTotal: TRLLabel
                  Left = -1
                  Top = 2
                  Width = 718
                  Height = 17
                  AutoSize = False
                  Borders.Sides = sdCustom
                  Borders.DrawLeft = False
                  Borders.DrawTop = False
                  Borders.DrawRight = False
                  Borders.DrawBottom = True
                end
                object RLLabelCredito: TRLLabel
                  Left = 471
                  Top = 106
                  Width = 40
                  Height = 14
                  Caption = 'Cr'#233'dito:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBTextCredito: TRLDBText
                  Left = 608
                  Top = 106
                  Width = 107
                  Height = 14
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'PED_VALOR_CREDITO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBTextCreditoBeforePrint
                end
                object RLLabelDesconto: TRLLabel
                  Left = 471
                  Top = 88
                  Width = 52
                  Height = 14
                  Caption = 'Desconto:'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText12: TRLDBText
                  Left = 608
                  Top = 133
                  Width = 107
                  Height = 14
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'PED_VALOR_PEDIDO'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText12BeforePrint
                end
                object RLDBText23: TRLDBText
                  Left = 608
                  Top = 55
                  Width = 107
                  Height = 14
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'PED_VALOR_TOT_OUTROS_VALORES'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText23BeforePrint
                end
                object RLLabel20: TRLLabel
                  Left = 471
                  Top = 71
                  Width = 28
                  Height = 14
                  Caption = 'Frete'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                end
                object RLDBText22: TRLDBText
                  Left = 608
                  Top = 71
                  Width = 107
                  Height = 14
                  Alignment = taRightJustify
                  AutoSize = False
                  DataField = 'PED_VALORFRETE'
                  DataSource = DSRelatorio
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'Arial'
                  Font.Style = []
                  ParentFont = False
                  BeforePrint = RLDBText22BeforePrint
                end
              end
            end
          end
          object TItens: TTabSheet
            Caption = 'Itens do Pedido'
            ImageIndex = 1
            object Label66: TLabel
              Left = 4
              Top = 105
              Width = 67
              Height = 16
              Caption = 'C'#243'digo (F8)'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label35: TLabel
              Left = 517
              Top = 105
              Width = 66
              Height = 16
              Alignment = taCenter
              Caption = 'Quantidade'
            end
            object Label18: TLabel
              Left = 606
              Top = 105
              Width = 65
              Height = 16
              Caption = 'Vr. Unit'#225'rio'
            end
            object Label19: TLabel
              Left = 767
              Top = 105
              Width = 49
              Height = 16
              Caption = 'Vr. Total'
            end
            object Label24: TLabel
              Left = 90
              Top = 105
              Width = 85
              Height = 16
              Caption = 'Descri'#231#227'o (F8)'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object DBLCBProdutoMercadoria: TDBLookupComboBox
              Tag = 10
              Left = 90
              Top = 124
              Width = 423
              Height = 22
              Hint = '(F3) Visualizar Descri'#231#227'o - (F7) Todos - (F8) Cliente'
              Ctl3D = False
              DataField = 'ITENS_PED_PRODUTO'
              DataSource = dsItens
              KeyField = 'PROD_CODIGO'
              ListField = 'PROD_DESCRICAOSAI'
              ListSource = DSProduto_Mercadoria
              ParentCtl3D = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 1
              OnExit = DBLCBProdutoMercadoriaExit
              OnKeyDown = DBLCBProdutoMercadoriaKeyDown
            end
            object EdCodProdutoMercadoria: TEdit
              Tag = 10
              Left = 4
              Top = 124
              Width = 80
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              Text = 'EdCodProdutoMercadoria'
              OnExit = EdCodProdutoMercadoriaExit
              OnKeyDown = EdCodProdutoMercadoriaKeyDown
            end
            object RxDBValorUnitario: TRxDBCalcEdit
              Tag = 10
              Left = 606
              Top = 124
              Width = 77
              Height = 23
              DataField = 'ITENS_PED_VALOR'
              DataSource = dsItens
              Ctl3D = False
              DecimalPlaces = 4
              DisplayFormat = '0.,0000'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 3
              OnExit = RxDBValorUnitarioExit
            end
            object RxDBValorTotal: TRxDBCalcEdit
              Tag = 10
              Left = 688
              Top = 124
              Width = 129
              Height = 23
              DataField = 'ITENS_PED_VALOR_TOTAL'
              DataSource = dsItens
              Ctl3D = False
              DisplayFormat = '0.,00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 4
            end
            object RxDBCQtd: TRxDBCalcEdit
              Tag = 10
              Left = 517
              Top = 124
              Width = 84
              Height = 23
              DataField = 'ITENS_PED_QUANTIDADE'
              DataSource = dsItens
              Ctl3D = False
              DecimalPlaces = 4
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 2
              OnExit = RxDBCQtdExit
            end
            object Panel6: TPanel
              Left = 0
              Top = 176
              Width = 834
              Height = 33
              Align = alBottom
              TabOrder = 5
              object BitSalvarItem: TBitBtn
                Tag = 10
                Left = 656
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Salvar'
                TabOrder = 0
                OnClick = BitSalvarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
                  7700333333337777777733333333008088003333333377F73377333333330088
                  88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
                  000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
                  FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
                  99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
                  99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
                  99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
                  93337FFFF7737777733300000033333333337777773333333333}
                NumGlyphs = 2
              end
              object BitCancelarItem: TBitBtn
                Tag = 10
                Left = 742
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Cancelar'
                TabOrder = 1
                OnClick = BitCancelarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
                  33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
                  993337777F777F3377F3393999707333993337F77737333337FF993399933333
                  399377F3777FF333377F993339903333399377F33737FF33377F993333707333
                  399377F333377FF3377F993333101933399377F333777FFF377F993333000993
                  399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
                  99333773FF777F777733339993707339933333773FF7FFF77333333999999999
                  3333333777333777333333333999993333333333377777333333}
                NumGlyphs = 2
              end
              object btnEncerrarItem: TBitBtn
                Left = 8
                Top = 5
                Width = 105
                Height = 23
                Caption = 'Encerrar Item'
                TabOrder = 2
                OnClick = btnEncerrarItemClick
              end
            end
            object DBGrid1: TDBGrid
              Tag = 3
              Left = 0
              Top = 209
              Width = 834
              Height = 117
              Align = alBottom
              DataSource = dsItens
              Options = [dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              TabOrder = 6
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              Columns = <
                item
                  Alignment = taCenter
                  Expanded = False
                  FieldName = 'ITENS_PED_PRODUTO'
                  Title.Alignment = taCenter
                  Width = 50
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENS_PED_PRODUTO_DESC'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENS_PED_QUANTIDADE'
                  Title.Alignment = taCenter
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENS_PED_QUANTIDADEATEN'
                  Title.Alignment = taCenter
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENS_PED_VALOR'
                  Title.Alignment = taRightJustify
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENS_PED_VALOR_TOTAL'
                  Title.Alignment = taRightJustify
                  Width = 129
                  Visible = True
                end>
            end
            object Panel4: TPanel
              Left = 0
              Top = 0
              Width = 834
              Height = 33
              Align = alTop
              TabOrder = 7
              object BitInseriItem: TBitBtn
                Tag = 10
                Left = 3
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Incluir'
                TabOrder = 0
                OnClick = BitInseriItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
                  333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
                  0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
                  07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
                  07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
                  0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
                  33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
                  B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
                  3BB33773333773333773B333333B3333333B7333333733333337}
                NumGlyphs = 2
              end
              object BitEditarItem: TBitBtn
                Tag = 10
                Left = 90
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Editar'
                TabOrder = 1
                OnClick = BitEditarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
                  000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
                  00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
                  F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
                  0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
                  FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
                  FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
                  0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
                  00333377737FFFFF773333303300000003333337337777777333}
                NumGlyphs = 2
              end
              object BitExcluirItem: TBitBtn
                Tag = 10
                Left = 177
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Excluir'
                TabOrder = 2
                OnClick = BitExcluirItemClick
                Glyph.Data = {
                  B2050000424DB205000000000000360400002800000012000000130000000100
                  0800000000007C010000C30E0000C30E00000001000000000000000000007B00
                  0000BD000000FF0000007B7B000000FF0000FFFF000000315A0008427300084A
                  730000007B007B007B00084A7B0008527B0021527B00007B7B007B7B7B00004A
                  840008528400105284002963840008528C00085A8C00185A8C0018638C002963
                  8C0008529400185A9400296B9400316B94002973940031739400085A9C001863
                  9C0018739C0029739C0031739C0031849C00005AA5002173A5003973A500297B
                  A500186BAD00106BB500317BB5002984B5004A8CB500086BBD000073BD001073
                  BD001873BD00217BBD004284BD00318CBD004A8CBD005294BD005A9CBD00BDBD
                  BD001073C600007BC600217BC600428CC6004A8CC6005A9CC6000084CE000884
                  CE00398CCE005A9CCE00639CCE001884D6002184D600088CD600108CD6004294
                  D600399CD6004A9CD600529CD6005A9CD6005AA5D60063ADD6001884DE002184
                  DE00188CDE001094DE001894DE003194DE00299CDE004AA5DE005AA5DE004AB5
                  DE00189CE700219CE700429CE7005AA5E7005AADE70063ADE7006BB5E70021A5
                  EF0029A5EF0031A5EF0063B5EF006BBDEF0029ADF70031ADF7006BBDF7000000
                  FF00FF00FF0031B5FF0039B5FF0042B5FF0039BDFF0042BDFF0042C6FF004AC6
                  FF006BC6FF004ACEFF0052CEFF0052D6FF005ADEFF0063E7FF0000FFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00393939393939
                  3939393939393939393939690000396939393939393939393939393939396939
                  0000396969393910101010101010101010693939000039696969000000000000
                  0000000069693939000039396969007879797978797979696939393900003939
                  3969697903030303030379691039393900003939396969697978797979786969
                  1039393900003939393969696903030369696900103939390000393939390069
                  6969797869697900103939390000393939390079036969696903790010393939
                  0000393939390079796969696978790010393939000039393939007903696969
                  6900000010393939000039393939007869697900696979001039393900003939
                  3939006969697900696969693939393900003939396969697978790079003969
                  6939393900003969696969000000000000393939696939390000396969693939
                  3939393939393939393969390000393939393939393939393939393939393969
                  00003939393939393939393939393939393939390000}
              end
              object DBNitens: TDBNavigator
                Tag = 11
                Left = 728
                Top = 5
                Width = 80
                Height = 23
                DataSource = dsItens
                VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
                TabOrder = 3
              end
              object stItens: TStaticText
                Left = 603
                Top = 9
                Width = 117
                Height = 20
                Alignment = taRightJustify
                Caption = ' Reg: 10000/10000 '
                TabOrder = 4
              end
            end
            object gbAtendido: TGroupBox
              Left = 108
              Top = 42
              Width = 301
              Height = 56
              Caption = '  Atendido  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 8
              object Label8: TLabel
                Left = 8
                Top = 17
                Width = 66
                Height = 16
                Alignment = taRightJustify
                AutoSize = False
                Caption = 'Quantidade'
              end
              object Label32: TLabel
                Left = 100
                Top = 17
                Width = 69
                Height = 16
                Alignment = taCenter
                Caption = 'Nota Filscal'
              end
              object Label33: TLabel
                Left = 192
                Top = 18
                Width = 27
                Height = 16
                Caption = 'Data'
              end
              object DBText9: TDBText
                Left = 8
                Top = 35
                Width = 66
                Height = 17
                Alignment = taRightJustify
                DataField = 'ITENS_PED_QUANTIDADEATEN'
                DataSource = dsItens
              end
              object DBText10: TDBText
                Left = 104
                Top = 35
                Width = 66
                Height = 17
                Alignment = taRightJustify
                DataField = 'ITENS_PED_NF'
                DataSource = dsItens
              end
              object DBText11: TDBText
                Left = 192
                Top = 35
                Width = 66
                Height = 17
                Alignment = taRightJustify
                DataField = 'ITENS_PED_DATAATEND'
                DataSource = dsItens
              end
            end
            object GroupBox9: TGroupBox
              Left = 6
              Top = 42
              Width = 99
              Height = 56
              Caption = '  Situa'#231#227'o  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 9
              object lbSituacaoItens: TLabel
                Left = 8
                Top = 27
                Width = 84
                Height = 16
                Alignment = taCenter
                AutoSize = False
                Caption = 'ENCERRADO'
              end
            end
          end
          object TValores2: TTabSheet
            Caption = 'Valores'
            ImageIndex = 3
            TabVisible = False
          end
          object TComplemento: TTabSheet
            Caption = '  Complemento  '
            ImageIndex = 2
            TabVisible = False
            object Label28: TLabel
              Left = 4
              Top = 69
              Width = 24
              Height = 16
              Caption = 'Obs'
            end
            object DBMemo1: TDBMemo
              Left = 5
              Top = 86
              Width = 656
              Height = 92
              Ctl3D = False
              DataField = 'PED_OBS'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 0
            end
          end
          object tsItensAutorizacao: TTabSheet
            Caption = ' Itens do Pedido '
            ImageIndex = 4
            object DBGrid3: TDBGrid
              Tag = 3
              Left = 0
              Top = 41
              Width = 834
              Height = 285
              Align = alClient
              DataSource = dsItensAultorizacao
              Options = [dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              TabOrder = 0
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              OnDrawColumnCell = DBGrid3DrawColumnCell
              OnDblClick = DBGrid3DblClick
              Columns = <
                item
                  Expanded = False
                  FieldName = 'PROD_CODIGO'
                  Title.Alignment = taCenter
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PROD_DESCRICAOENT'
                  Width = 270
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENS_PED_QUANTIDADE'
                  Title.Alignment = taCenter
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'VALOR_ANTES'
                  Title.Alignment = taRightJustify
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENS_PED_VALOR'
                  Title.Alignment = taRightJustify
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'DIFERENCA'
                  Title.Alignment = taRightJustify
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'VARIACAO'
                  Title.Alignment = taRightJustify
                  Width = 50
                  Visible = True
                end>
            end
            object Panel5: TPanel
              Left = 0
              Top = 0
              Width = 834
              Height = 41
              Align = alTop
              TabOrder = 1
              object DBNavigator2: TDBNavigator
                Tag = 11
                Left = 728
                Top = 5
                Width = 80
                Height = 23
                DataSource = dsItens
                VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
                TabOrder = 0
              end
              object stItens3: TStaticText
                Left = 603
                Top = 9
                Width = 117
                Height = 20
                Alignment = taRightJustify
                Caption = ' Reg: 10000/10000 '
                TabOrder = 1
              end
              object btnInfoItem: TBitBtn
                Left = 5
                Top = 7
                Width = 148
                Height = 25
                Caption = 'Informa'#231#245'es do Item'
                TabOrder = 2
                OnClick = btnInfoItemClick
              end
              object StaticText2: TStaticText
                Left = 156
                Top = 3
                Width = 93
                Height = 17
                Alignment = taCenter
                AutoSize = False
                BorderStyle = sbsSingle
                Caption = 'Pre'#231'o Maior'
                Color = clYellow
                ParentColor = False
                TabOrder = 3
              end
              object StaticText3: TStaticText
                Left = 156
                Top = 19
                Width = 93
                Height = 17
                Alignment = taCenter
                AutoSize = False
                BorderStyle = sbsSingle
                Caption = 'Pre'#231'o Menor'
                Color = clLime
                ParentColor = False
                TabOrder = 4
              end
            end
          end
          object tsAutorizacao: TTabSheet
            Caption = 'Autoriza'#231#227'o'
            ImageIndex = 5
            object gbAutorizacao1N2: TGroupBox
              Left = 0
              Top = -2
              Width = 826
              Height = 107
              Caption = ' 1'#170' Autoriza'#231#227'o - Nivel 2 '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              object Label13: TLabel
                Left = 16
                Top = 52
                Width = 51
                Height = 16
                Caption = 'Situa'#231#227'o'
              end
              object Label31: TLabel
                Left = 16
                Top = 14
                Width = 66
                Height = 16
                Caption = 'Autorizante'
              end
              object Label34: TLabel
                Left = 328
                Top = 14
                Width = 68
                Height = 16
                Caption = 'Observa'#231#227'o'
              end
              object Label36: TLabel
                Left = 152
                Top = 52
                Width = 27
                Height = 16
                Caption = 'Data'
              end
              object lbSituacaoAut1: TLabel
                Left = 16
                Top = 65
                Width = 129
                Height = 16
                AutoSize = False
              end
              object DBText31: TDBText
                Left = 152
                Top = 65
                Width = 65
                Height = 17
                DataField = 'PED_AUT1_DATA'
                DataSource = dsCadastro
              end
              object DBText32: TDBText
                Left = 16
                Top = 32
                Width = 289
                Height = 17
                DataField = 'PED_AUT1_AUTORI_DESC'
                DataSource = dsCadastro
              end
              object BitBtn1: TBitBtn
                Left = 14
                Top = 84
                Width = 131
                Height = 20
                Caption = 'Autoriza'
                TabOrder = 0
                Visible = False
                OnClick = btnAutorizaClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
                  555555555555555555555555555555555555555555FF55555555555559055555
                  55555555577FF5555555555599905555555555557777F5555555555599905555
                  555555557777FF5555555559999905555555555777777F555555559999990555
                  5555557777777FF5555557990599905555555777757777F55555790555599055
                  55557775555777FF5555555555599905555555555557777F5555555555559905
                  555555555555777FF5555555555559905555555555555777FF55555555555579
                  05555555555555777FF5555555555557905555555555555777FF555555555555
                  5990555555555555577755555555555555555555555555555555}
                NumGlyphs = 2
              end
              object BitBtn2: TBitBtn
                Left = 147
                Top = 84
                Width = 131
                Height = 20
                Caption = 'N'#227'o Autoriza'
                TabOrder = 1
                Visible = False
                OnClick = BitBtn2Click
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  333333333333333333333333333333333333333FFF33FF333FFF339993370733
                  999333777FF37FF377733339993000399933333777F777F77733333399970799
                  93333333777F7377733333333999399933333333377737773333333333990993
                  3333333333737F73333333333331013333333333333777FF3333333333910193
                  333333333337773FF3333333399000993333333337377737FF33333399900099
                  93333333773777377FF333399930003999333337773777F777FF339993370733
                  9993337773337333777333333333333333333333333333333333333333333333
                  3333333333333333333333333333333333333333333333333333}
                NumGlyphs = 2
              end
              object Memo1: TMemo
                Left = 328
                Top = 30
                Width = 492
                Height = 64
                TabOrder = 2
              end
            end
            object gbAutorizacao2N2: TGroupBox
              Left = 0
              Top = 107
              Width = 826
              Height = 107
              Caption = ' 2'#170' Autoriza'#231#227'o - Nivel 2 '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 1
              object Label39: TLabel
                Left = 16
                Top = 54
                Width = 51
                Height = 16
                Caption = 'Situa'#231#227'o'
              end
              object Label40: TLabel
                Left = 16
                Top = 14
                Width = 66
                Height = 16
                Caption = 'Autorizante'
              end
              object Label41: TLabel
                Left = 328
                Top = 14
                Width = 68
                Height = 16
                Caption = 'Observa'#231#227'o'
              end
              object Label42: TLabel
                Left = 152
                Top = 54
                Width = 27
                Height = 16
                Caption = 'Data'
              end
              object lbSituacaoAut2: TLabel
                Left = 16
                Top = 67
                Width = 129
                Height = 16
                AutoSize = False
              end
              object DBText21: TDBText
                Left = 152
                Top = 67
                Width = 65
                Height = 17
                DataField = 'PED_AUT2_DATA'
                DataSource = dsCadastro
              end
              object DBText33: TDBText
                Left = 16
                Top = 32
                Width = 289
                Height = 17
                DataField = 'PED_AUT2_AUTORI_DESC'
                DataSource = dsCadastro
              end
              object BitBtn3: TBitBtn
                Left = 14
                Top = 84
                Width = 131
                Height = 20
                Caption = 'Autoriza'
                TabOrder = 0
                Visible = False
                OnClick = BitBtn3Click
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
                  555555555555555555555555555555555555555555FF55555555555559055555
                  55555555577FF5555555555599905555555555557777F5555555555599905555
                  555555557777FF5555555559999905555555555777777F555555559999990555
                  5555557777777FF5555557990599905555555777757777F55555790555599055
                  55557775555777FF5555555555599905555555555557777F5555555555559905
                  555555555555777FF5555555555559905555555555555777FF55555555555579
                  05555555555555777FF5555555555557905555555555555777FF555555555555
                  5990555555555555577755555555555555555555555555555555}
                NumGlyphs = 2
              end
              object BitBtn4: TBitBtn
                Left = 147
                Top = 84
                Width = 131
                Height = 20
                Caption = 'N'#227'o Autoriza'
                TabOrder = 1
                Visible = False
                OnClick = BitBtn4Click
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  333333333333333333333333333333333333333FFF33FF333FFF339993370733
                  999333777FF37FF377733339993000399933333777F777F77733333399970799
                  93333333777F7377733333333999399933333333377737773333333333990993
                  3333333333737F73333333333331013333333333333777FF3333333333910193
                  333333333337773FF3333333399000993333333337377737FF33333399900099
                  93333333773777377FF333399930003999333337773777F777FF339993370733
                  9993337773337333777333333333333333333333333333333333333333333333
                  3333333333333333333333333333333333333333333333333333}
                NumGlyphs = 2
              end
              object Memo2: TMemo
                Left = 328
                Top = 30
                Width = 492
                Height = 64
                TabOrder = 2
              end
            end
            object gbAutorizacaoN3: TGroupBox
              Left = 0
              Top = 216
              Width = 826
              Height = 107
              Caption = ' Autoriza'#231#227'o Nivel 3 '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 2
              object Label44: TLabel
                Left = 16
                Top = 53
                Width = 51
                Height = 16
                Caption = 'Situa'#231#227'o'
              end
              object Label45: TLabel
                Left = 16
                Top = 13
                Width = 66
                Height = 16
                Caption = 'Autorizante'
              end
              object Label46: TLabel
                Left = 328
                Top = 13
                Width = 68
                Height = 16
                Caption = 'Observa'#231#227'o'
              end
              object Label47: TLabel
                Left = 152
                Top = 53
                Width = 27
                Height = 16
                Caption = 'Data'
              end
              object lbSituacaoAut3: TLabel
                Left = 16
                Top = 66
                Width = 129
                Height = 16
                AutoSize = False
              end
              object DBText26: TDBText
                Left = 152
                Top = 66
                Width = 65
                Height = 17
                DataField = 'PED_AUT3_DATA'
                DataSource = dsCadastro
              end
              object DBText42: TDBText
                Left = 16
                Top = 32
                Width = 289
                Height = 17
                DataField = 'PED_AUT3_AUTORI_DESC'
                DataSource = dsCadastro
              end
              object BitBtn5: TBitBtn
                Left = 14
                Top = 84
                Width = 131
                Height = 20
                Caption = 'Autoriza'
                TabOrder = 0
                Visible = False
                OnClick = BitBtn5Click
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
                  555555555555555555555555555555555555555555FF55555555555559055555
                  55555555577FF5555555555599905555555555557777F5555555555599905555
                  555555557777FF5555555559999905555555555777777F555555559999990555
                  5555557777777FF5555557990599905555555777757777F55555790555599055
                  55557775555777FF5555555555599905555555555557777F5555555555559905
                  555555555555777FF5555555555559905555555555555777FF55555555555579
                  05555555555555777FF5555555555557905555555555555777FF555555555555
                  5990555555555555577755555555555555555555555555555555}
                NumGlyphs = 2
              end
              object BitBtn6: TBitBtn
                Left = 147
                Top = 84
                Width = 131
                Height = 20
                Caption = 'N'#227'o Autoriza'
                TabOrder = 1
                Visible = False
                OnClick = BitBtn6Click
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  333333333333333333333333333333333333333FFF33FF333FFF339993370733
                  999333777FF37FF377733339993000399933333777F777F77733333399970799
                  93333333777F7377733333333999399933333333377737773333333333990993
                  3333333333737F73333333333331013333333333333777FF3333333333910193
                  333333333337773FF3333333399000993333333337377737FF33333399900099
                  93333333773777377FF333399930003999333337773777F777FF339993370733
                  9993337773337333777333333333333333333333333333333333333333333333
                  3333333333333333333333333333333333333333333333333333}
                NumGlyphs = 2
              end
              object Memo3: TMemo
                Left = 328
                Top = 30
                Width = 492
                Height = 64
                TabOrder = 2
              end
            end
          end
          object Tvalores: TTabSheet
            Caption = 'Valores'
            ImageIndex = 6
            object Label22: TLabel
              Left = 10
              Top = 10
              Width = 91
              Height = 16
              Caption = 'Valor total Itens'
            end
            object Label23: TLabel
              Left = 10
              Top = 41
              Width = 121
              Height = 16
              Caption = 'Valor Outros Valores'
            end
            object Label26: TLabel
              Left = 10
              Top = 102
              Width = 107
              Height = 16
              Caption = 'Valor do Desconto'
            end
            object Label27: TLabel
              Left = 10
              Top = 162
              Width = 62
              Height = 16
              Caption = 'Valor Final'
            end
            object Label38: TLabel
              Left = 10
              Top = 132
              Width = 93
              Height = 16
              Caption = 'Valor do Cr'#233'dito'
            end
            object Label25: TLabel
              Left = 10
              Top = 72
              Width = 64
              Height = 16
              Caption = 'Valor Frete'
            end
            object RxDBCValorItens: TRxDBCalcEdit
              Left = 169
              Top = 7
              Width = 77
              Height = 24
              DataField = 'PED_VALOR_TOT_ITENS'
              DataSource = dsCadastro
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = 'R$ #,##0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 0
            end
            object RxDBCTotalOutrosValores: TRxDBCalcEdit
              Left = 169
              Top = 38
              Width = 77
              Height = 24
              DataField = 'PED_VALOR_TOT_OUTROS_VALORES'
              DataSource = dsCadastro
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '0.,00##'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 1
              OnExit = RxDBCTotalOutrosValoresExit
            end
            object RxDBCDesconto: TRxDBCalcEdit
              Left = 169
              Top = 100
              Width = 77
              Height = 23
              DataField = 'PED_VALOR_DESC0NTO'
              DataSource = dsCadastro
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '0.,00##'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 2
              OnExit = RxDBCDescontoExit
            end
            object RxDBCValorLiquido: TRxDBCalcEdit
              Left = 169
              Top = 159
              Width = 77
              Height = 24
              DataField = 'PED_VALOR_PEDIDO'
              DataSource = dsCadastro
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '#,##0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 3
            end
            object RxDBCCredito: TRxDBCalcEdit
              Left = 169
              Top = 130
              Width = 77
              Height = 23
              DataField = 'PED_VALOR_CREDITO'
              DataSource = dsCadastro
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '0.,00##'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 4
              OnExit = RxDBCCreditoExit
            end
            object edVrFrete: TRxDBCalcEdit
              Left = 169
              Top = 69
              Width = 77
              Height = 24
              DataField = 'PED_VALORFRETE'
              DataSource = dsCadastro
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '0.,00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 5
            end
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 56
    Top = 328
  end
  inherited dsCadastro: TDataSource
    Left = 224
    Top = 320
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'Select * from Pedido'
      'Order By Ped_Codigo'
      '')
    Left = 224
    Top = 352
  end
  inherited dspCadastro: TDataSetProvider
    Left = 224
    Top = 384
  end
  inherited cdsCadastro: TClientDataSet
    Left = 224
    Top = 416
    object cdsCadastroPED_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 7
      FieldName = 'PED_CODIGO'
    end
    object cdsCadastroPED_SOLICITANTE_DESC: TStringField
      DisplayLabel = 'Solicitante'
      FieldName = 'PED_SOLICITANTE_DESC'
      Size = 60
    end
    object cdsCadastroPED_FORNECEDOR: TIntegerField
      FieldName = 'PED_FORNECEDOR'
    end
    object cdsCadastroPED_FORNECEDOR_DESC: TStringField
      DisplayLabel = 'Fornecedor'
      FieldName = 'PED_FORNECEDOR_DESC'
      Size = 60
    end
    object cdsCadastroPED_TRANSPORTADORA: TIntegerField
      DisplayLabel = 'Transportadora'
      FieldName = 'PED_TRANSPORTADORA'
    end
    object cdsCadastroPED_OBS: TStringField
      DisplayLabel = 'Obs'
      FieldName = 'PED_OBS'
      Size = 255
    end
    object cdsCadastroPED_DATA: TDateTimeField
      DisplayLabel = 'Data'
      FieldName = 'PED_DATA'
      DisplayFormat = 'dd/mm/yy hh:mm'
    end
    object cdsCadastroPED_DATAENTREGA: TDateTimeField
      DisplayLabel = 'Entrega'
      FieldName = 'PED_DATAENTREGA'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroPED_SITUACAO: TIntegerField
      FieldName = 'PED_SITUACAO'
    end
    object cdsCadastroPED_DATASITUACAO: TDateTimeField
      FieldName = 'PED_DATASITUACAO'
      DisplayFormat = 'dd/mm/yy hh:mm'
    end
    object cdsCadastroPED_LOCAL: TIntegerField
      FieldName = 'PED_LOCAL'
    end
    object cdsCadastroPED_VALOR_TOT_ITENS: TFloatField
      FieldName = 'PED_VALOR_TOT_ITENS'
      DisplayFormat = 'R$ #,##0.00'
    end
    object cdsCadastroPED_VALOR_TOT_OUTROS_VALORES: TFloatField
      FieldName = 'PED_VALOR_TOT_OUTROS_VALORES'
    end
    object cdsCadastroPED_VALOR_DESC0NTO: TFloatField
      FieldName = 'PED_VALOR_DESC0NTO'
    end
    object cdsCadastroPED_VALOR_CREDITO: TFloatField
      FieldName = 'PED_VALOR_CREDITO'
    end
    object cdsCadastroPED_VALOR_PEDIDO: TFloatField
      DisplayLabel = 'Vr. Pedido'
      FieldName = 'PED_VALOR_PEDIDO'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroPED_VALOR_TOT_IPI: TFloatField
      FieldName = 'PED_VALOR_TOT_IPI'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_ORIGEM: TStringField
      FieldName = 'PED_ORIGEM'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_FRETE: TStringField
      DisplayLabel = 'Frete'
      FieldName = 'PED_FRETE'
      FixedChar = True
      Size = 3
    end
    object cdsCadastroPED_VALORFRETE: TFloatField
      FieldName = 'PED_VALORFRETE'
    end
    object cdsCadastroPED_COMPRADOR: TStringField
      FieldName = 'PED_COMPRADOR'
    end
    object cdsCadastroPED_TIPO: TStringField
      FieldName = 'PED_TIPO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_SOLICITACAO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'Solicita'#231#227'o'
      FieldName = 'PED_SOLICITACAO'
    end
    object cdsCadastroPED_DATASOLICITACAO: TDateTimeField
      FieldName = 'PED_DATASOLICITACAO'
    end
    object cdsCadastroPED_QTDSOLICITACAO: TIntegerField
      FieldName = 'PED_QTDSOLICITACAO'
    end
    object cdsCadastroPED_CONDPAGTO: TStringField
      FieldName = 'PED_CONDPAGTO'
    end
    object cdsCadastroPED_PERCONDPAGTO: TStringField
      FieldName = 'PED_PERCONDPAGTO'
    end
    object cdsCadastroPED_CRITERIO: TIntegerField
      DisplayLabel = 'Crit'#233'rio'
      FieldName = 'PED_CRITERIO'
    end
    object cdsCadastroPED_FECHAMENTO: TStringField
      FieldName = 'PED_FECHAMENTO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_SOLICITANTE: TIntegerField
      FieldName = 'PED_SOLICITANTE'
    end
    object cdsCadastroPED_CONTATO: TStringField
      FieldName = 'PED_CONTATO'
    end
    object cdsCadastroPED_AUT1_SITUACAO: TStringField
      FieldName = 'PED_AUT1_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_AUT1_AUTORIZANTE: TIntegerField
      FieldName = 'PED_AUT1_AUTORIZANTE'
    end
    object cdsCadastroPED_AUT1_AUTORI_DESC: TStringField
      FieldName = 'PED_AUT1_AUTORI_DESC'
      Size = 40
    end
    object cdsCadastroPED_AUT1_DATA: TDateTimeField
      FieldName = 'PED_AUT1_DATA'
      DisplayFormat = 'dd/mm/yyyy hh:mm'
    end
    object cdsCadastroPED_AUT1_OBS: TStringField
      FieldName = 'PED_AUT1_OBS'
      Size = 200
    end
    object cdsCadastroPED_AUT2_SITUACAO: TStringField
      FieldName = 'PED_AUT2_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_AUT2_AUTORIZANTE: TIntegerField
      FieldName = 'PED_AUT2_AUTORIZANTE'
    end
    object cdsCadastroPED_AUT2_AUTORI_DESC: TStringField
      FieldName = 'PED_AUT2_AUTORI_DESC'
      Size = 40
    end
    object cdsCadastroPED_AUT2_DATA: TDateTimeField
      FieldName = 'PED_AUT2_DATA'
      DisplayFormat = 'dd/mm/yyyy hh:mm'
    end
    object cdsCadastroPED_AUT2_OBS: TStringField
      FieldName = 'PED_AUT2_OBS'
      Size = 200
    end
    object cdsCadastroPED_AUT3_SITUACAO: TStringField
      FieldName = 'PED_AUT3_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_AUT3_AUTORIZANTE: TIntegerField
      FieldName = 'PED_AUT3_AUTORIZANTE'
    end
    object cdsCadastroPED_AUT3_AUTORI_DESC: TStringField
      FieldName = 'PED_AUT3_AUTORI_DESC'
      Size = 40
    end
    object cdsCadastroPED_AUT3_DATA: TDateTimeField
      FieldName = 'PED_AUT3_DATA'
      DisplayFormat = 'dd/mm/yyyy hh:mm'
    end
    object cdsCadastroPED_AUT3_OBS: TStringField
      FieldName = 'PED_AUT3_OBS'
      Size = 200
    end
    object cdsCadastroPED_AUT_SITUACAO: TStringField
      FieldName = 'PED_AUT_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_NF: TStringField
      FieldName = 'PED_NF'
      Size = 10
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 776
    Top = 472
  end
  inherited OpenDialog1: TOpenDialog
    Left = 808
    Top = 320
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 744
    Top = 472
  end
  object DSProduto_Mercadoria: TDataSource
    DataSet = DMGestao.QProdutoEnt
    OnDataChange = DSProduto_MercadoriaDataChange
    Left = 611
    Top = 472
  end
  object DSLocal: TDataSource
    DataSet = DMGestao.QLocal
    Left = 848
    Top = 312
  end
  object dsTransportadora: TDataSource
    DataSet = DMGestao.QTransportadora
    Left = 680
    Top = 472
  end
  object QRelatorio: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      
        'SELECT                                                          ' +
        '    '
      'PEDIDO.*,                                                   '
      'EMPRESA.*,                                                  '
      'FORNECEDOR.*,                                               '
      'ITENSPEDIDO.*,                                              '
      'PRODUTO.*                                                   '
      
        ' FROM PEDIDO                                                    ' +
        '     '
      'INNER JOIN EMPRESA ON                                       '
      '(EMPRESA.EMP_CODIGO = PEDIDO.CODIGOEMPRESA)         '
      'INNER JOIN FORNECEDOR ON                                    '
      '(FORNECEDOR.FORN_CODIGO = PEDIDO.PED_FORNECEDOR)    '
      'INNER JOIN ITENSPEDIDO ON                                   '
      '(ITENSPEDIDO.ITENS_PED_PEDIDO = PEDIDO.PED_CODIGO)  '
      'INNER JOIN PRODUTO ON                                       '
      '(PRODUTO.PROD_CODIGO = ITENSPEDIDO.ITENS_PED_PRODUTO)')
    Left = 712
    Top = 440
  end
  object DSRelatorio: TDataSource
    DataSet = QRelatorio
    Left = 712
    Top = 472
  end
  object RLDraftFilter1: TRLDraftFilter
    DisplayName = 'Impress'#227'o Matricial'
    Left = 888
    Top = 224
  end
  object RLRichFilter1: TRLRichFilter
    DisplayName = 'Documento Word'
    Left = 872
    Top = 112
  end
  object RLXLSFilter1: TRLXLSFilter
    DisplayName = 'Planilha Excel'
    Left = 864
    Top = 48
  end
  object RLPDFFilter1: TRLPDFFilter
    DocumentInfo.Creator = 'FortesReport v3.23 \251 Copyright '#169' 1999-2004 Fortes Inform'#225'tica'
    ViewerOptions = []
    FontEncoding = feNoEncoding
    DisplayName = 'Documento PDF'
    Left = 496
  end
  object RLHTMLFilter1: TRLHTMLFilter
    DocumentStyle = dsCSS2
    DisplayName = 'P'#225'gina da Web - HTML'
    Left = 568
    Top = 40
  end
  object dsItens: TDataSource
    AutoEdit = False
    DataSet = cdsItens
    OnStateChange = dsItensStateChange
    OnDataChange = DSItensDataChange
    Left = 256
    Top = 320
  end
  object QItens: TQuery
    Active = True
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT *'
      'FROM'
      '  ITENSPEDIDO'
      'WHERE'
      '  ITENSPEDIDO.ITENS_PED_PEDIDO = :PED_CODIGO')
    Left = 256
    Top = 352
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ITENS_PED_PEDIDO'
        ParamType = ptUnknown
        Value = 1
      end>
  end
  object dspItens: TDataSetProvider
    DataSet = QItens
    Left = 256
    Top = 384
  end
  object cdsItens: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'ITENS_PED_PEDIDO'
    MasterFields = 'PED_CODIGO'
    MasterSource = dsCadastro
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspItens'
    Left = 256
    Top = 416
    object cdsItensITENS_PED_CODIGO: TIntegerField
      Alignment = taCenter
      FieldName = 'ITENS_PED_CODIGO'
    end
    object cdsItensITENS_PED_PEDIDO: TIntegerField
      FieldName = 'ITENS_PED_PEDIDO'
    end
    object cdsItensITENS_PED_PRODUTO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'ITENS_PED_PRODUTO'
    end
    object cdsItensITENS_PED_QUANTIDADE: TFloatField
      Alignment = taCenter
      DisplayLabel = 'Quant.'
      FieldName = 'ITENS_PED_QUANTIDADE'
    end
    object cdsItensITENS_PED_QUANTIDADEATEN: TFloatField
      Alignment = taCenter
      DisplayLabel = 'Atendido'
      FieldName = 'ITENS_PED_QUANTIDADEATEN'
    end
    object cdsItensITENS_PED_VALOR: TFloatField
      DisplayLabel = 'Vr. Unitario'
      FieldName = 'ITENS_PED_VALOR'
      DisplayFormat = '#,##0.0000'
    end
    object cdsItensITENS_PED_SITUACAO: TIntegerField
      FieldName = 'ITENS_PED_SITUACAO'
    end
    object cdsItensITENS_PED_VALOR_TOTAL: TFloatField
      DisplayLabel = 'Vr. Total'
      FieldName = 'ITENS_PED_VALOR_TOTAL'
      DisplayFormat = '#,##0.00'
    end
    object cdsItensITENS_PED_LOCAL: TIntegerField
      FieldName = 'ITENS_PED_LOCAL'
    end
    object cdsItensITENS_PED_OUTROS_VALORES: TFloatField
      FieldName = 'ITENS_PED_OUTROS_VALORES'
    end
    object cdsItensITENS_PED_PERC_IPI: TFloatField
      FieldName = 'ITENS_PED_PERC_IPI'
    end
    object cdsItensITENS_PED_VALOR_IPI: TFloatField
      FieldName = 'ITENS_PED_VALOR_IPI'
    end
    object cdsItensITENS_PED_NF: TStringField
      FieldName = 'ITENS_PED_NF'
    end
    object cdsItensUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsItensUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsItensUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsItensDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsItensDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsItensDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsItensEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsItensITENS_PED_PRODUTO_DESC: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      DisplayWidth = 40
      FieldName = 'ITENS_PED_PRODUTO_DESC'
      Size = 60
    end
    object cdsItensITENS_PED_DATAATEND: TDateTimeField
      FieldName = 'ITENS_PED_DATAATEND'
    end
    object cdsItensITENS_PED_NFATEND: TIntegerField
      FieldName = 'ITENS_PED_NFATEND'
      DisplayFormat = '000000'
    end
  end
  object dsSolicitante: TDataSource
    DataSet = DMGestao.QSolicitante
    Left = 808
    Top = 472
  end
  object QSolicitacao: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT '
      '  SOLICITACAO.SOL_CODIGO,'
      '  SOLICITACAO.SOL_DATA,'
      '  SOLICITACAO.SOL_SOLICITANTE_DESC,'
      '  SOLICITACAO.SOL_MOTIVO_DESC'
      'FROM'
      '  SOLICITACAO')
    Left = 576
    Top = 320
  end
  object dsSolicitacao: TDataSource
    DataSet = QSolicitacao
    Left = 576
    Top = 360
  end
  object QPesquisaProdInfo: TQuery
    DatabaseName = 'base'
    Left = 296
    Top = 352
  end
  object dsPesquisaProdInfo: TDataSource
    DataSet = QPesquisaProdInfo
    Left = 296
    Top = 320
  end
  object dsUltCompra: TDataSource
    DataSet = QUltCompra
    Left = 328
    Top = 320
  end
  object QUltCompra: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT'
      '  NOTAFISCAL.NF_FORNECEDOR_DESC AS FORNECEDOR,'
      '  MAX(NOTAFISCAL.NF_DATAESTOQUE) AS DATA,'
      '  SUM(ITENSNOTAFISCAL.ITENS_NF_QUANTIDADE *'
      '      ITENSNOTAFISCAL.ITENS_NF_VALORUNITARIO) AS TOTAL,'
      '  ITENSNOTAFISCAL.ITENS_NF_QUANTIDADE AS QUANTIDADE,'
      '  ITENSNOTAFISCAL.ITENS_NF_VALORUNITARIO AS VRUNITARIO,'
      '  NOTAFISCAL.NF_NOTAFISCAL ||'#39'/'#39'||'
      '  NOTAFISCAL.NF_SERIE AS NOTA'
      'FROM'
      '  NOTAFISCAL'
      
        '  INNER JOIN ITENSNOTAFISCAL ON (NOTAFISCAL.NF_CODIGO = ITENSNOT' +
        'AFISCAL.ITENS_NF_NOTAFISCAL)'
      'WHERE'
      '  (ITENSNOTAFISCAL.ITENS_NF_PRODUTO = 25161)AND'
      '  (NOTAFISCAL.CODIGOEMPRESA = 1)'
      'GROUP BY'
      '  NOTAFISCAL.NF_FORNECEDOR_DESC,'
      '  ITENSNOTAFISCAL.ITENS_NF_QUANTIDADE,'
      '  ITENSNOTAFISCAL.ITENS_NF_VALORUNITARIO,'
      '  NOTAFISCAL.NF_NOTAFISCAL,'
      '  NOTAFISCAL.NF_SERIE')
    Left = 328
    Top = 352
    object QUltCompraFORNECEDOR: TStringField
      FieldName = 'FORNECEDOR'
      Size = 60
    end
    object QUltCompraDATA: TDateTimeField
      FieldName = 'DATA'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object QUltCompraTOTAL: TFloatField
      FieldName = 'TOTAL'
      DisplayFormat = '#,##0.00'
    end
    object QUltCompraQUANTIDADE: TFloatField
      FieldName = 'QUANTIDADE'
      DisplayFormat = '0.###'
    end
    object QUltCompraVRUNITARIO: TFloatField
      FieldName = 'VRUNITARIO'
      DisplayFormat = '#,##0.00'
    end
    object QUltCompraNOTA: TStringField
      FieldName = 'NOTA'
      Size = 13
    end
  end
  object dsPedPendente: TDataSource
    DataSet = QPedPendente
    Left = 360
    Top = 320
  end
  object QPedPendente: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT'
      '  PEDIDO.PED_FORNECEDOR_DESC,'
      '  MAX(PEDIDO.PED_DATA) AS PED_DATA,'
      '  PEDIDO.PED_CODIGO,'
      '  SUM(ITENSPEDIDO.ITENS_PED_QUANTIDADE +'
      '      ITENSPEDIDO.ITENS_PED_VALOR) AS TOTAL,'
      '  ITENSPEDIDO.ITENS_PED_QUANTIDADE,'
      '  ITENSPEDIDO.ITENS_PED_VALOR'
      'FROM'
      '  PEDIDO'
      
        '  INNER JOIN ITENSPEDIDO ON(PEDIDO.PED_CODIGO = ITENSPEDIDO.ITEN' +
        'S_PED_PEDIDO)'
      'WHERE'
      
        '  ((ITENSPEDIDO.ITENS_PED_QUANTIDADE - ITENSPEDIDO.ITENS_PED_QUA' +
        'NTIDADEATEN) < 0)AND'
      '  (ITENSPEDIDO.ITENS_PED_SITUACAO = 0)AND'
      '  (ITENSPEDIDO.ITENS_PED_NF IS NOT NULL)'
      'GROUP BY'
      '  PEDIDO.PED_FORNECEDOR_DESC,'
      '  PEDIDO.PED_CODIGO,'
      '  ITENSPEDIDO.ITENS_PED_VALOR,'
      '  ITENSPEDIDO.ITENS_PED_QUANTIDADE'
      '')
    Left = 360
    Top = 352
    object QPedPendentePED_FORNECEDOR_DESC: TStringField
      FieldName = 'PED_FORNECEDOR_DESC'
      Size = 60
    end
    object QPedPendentePED_DATA: TDateTimeField
      FieldName = 'PED_DATA'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object QPedPendentePED_CODIGO: TIntegerField
      FieldName = 'PED_CODIGO'
    end
    object QPedPendenteTOTAL: TFloatField
      FieldName = 'TOTAL'
      DisplayFormat = '#,##0.00'
    end
    object QPedPendenteITENS_PED_QUANTIDADE: TFloatField
      FieldName = 'ITENS_PED_QUANTIDADE'
    end
    object QPedPendenteITENS_PED_VALOR: TFloatField
      FieldName = 'ITENS_PED_VALOR'
      DisplayFormat = '#,##0.00'
    end
  end
  object dsAutorizante: TDataSource
    DataSet = DMGestao.QAutorizantePedido
    Left = 392
    Top = 152
  end
  object QItensAultorizacao: TQuery
    Active = True
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT'
      '  PRODUTO.PROD_CODIGO,'
      '  PRODUTO.PROD_DESCRICAOENT,'
      '  ITEM.ITENS_PED_QUANTIDADE,'
      '  ITEM.ITENS_PED_VALOR,'
      
        '  COALESCE(( SELECT MAX(ITENSPEDIDO.ITENS_PED_VALOR) FROM ITENSP' +
        'EDIDO'
      
        '             WHERE (ITENSPEDIDO.ITENS_PED_PRODUTO = ITEM.ITENS_P' +
        'ED_PRODUTO)AND'
      '                   (ITENSPEDIDO.ITENS_PED_PEDIDO = (SELECT'
      
        '                                                     MAX(PEDIDO.' +
        'PED_CODIGO)'
      '                                                   FROM'
      '                                                     ITENSPEDIDO'
      
        '                                                     INNER JOIN ' +
        'PEDIDO ON (ITENSPEDIDO.ITENS_PED_PEDIDO = PEDIDO.PED_CODIGO)'
      '                                                   WHERE'
      
        '                                                     (PEDIDO.EXC' +
        'LUIDO <> '#39'S'#39' OR PEDIDO.EXCLUIDO IS NULL) AND'
      
        '                                                     (PEDIDO.PED' +
        '_AUT_SITUACAO = '#39'S'#39') AND'
      
        '                                                     (ITENSPEDID' +
        'O.ITENS_PED_PRODUTO = ITEM.ITENS_PED_PRODUTO)AND'
      
        '                                                     (PEDIDO.PED' +
        '_CODIGO < PED.PED_CODIGO))'
      '                                )),0)VALOR_ANTES,'
      
        '  ITEM.ITENS_PED_VALOR-COALESCE(( SELECT MAX(ITENSPEDIDO.ITENS_P' +
        'ED_VALOR) FROM ITENSPEDIDO'
      
        '             WHERE (ITENSPEDIDO.ITENS_PED_PRODUTO = ITEM.ITENS_P' +
        'ED_PRODUTO)AND'
      '                   (ITENSPEDIDO.ITENS_PED_PEDIDO = (SELECT'
      
        '                                                     MAX(PEDIDO.' +
        'PED_CODIGO)'
      '                                                   FROM'
      '                                                     ITENSPEDIDO'
      
        '                                                     INNER JOIN ' +
        'PEDIDO ON (ITENSPEDIDO.ITENS_PED_PEDIDO = PEDIDO.PED_CODIGO)'
      '                                                   WHERE'
      
        '                                                     (PEDIDO.EXC' +
        'LUIDO <> '#39'S'#39' OR PEDIDO.EXCLUIDO IS NULL) AND'
      
        '                                                     (PEDIDO.PED' +
        '_AUT_SITUACAO = '#39'S'#39') AND'
      
        '                                                     (ITENSPEDID' +
        'O.ITENS_PED_PRODUTO = ITEM.ITENS_PED_PRODUTO)AND'
      
        '                                                     (PEDIDO.PED' +
        '_CODIGO < PED.PED_CODIGO))'
      '                                )),0) AS DIFERENCA,'
      '  ('
      
        '  ((ITEM.ITENS_PED_VALOR - COALESCE(( SELECT MAX(ITENSPEDIDO.ITE' +
        'NS_PED_VALOR) FROM ITENSPEDIDO'
      
        '              WHERE (ITENSPEDIDO.ITENS_PED_PRODUTO = ITEM.ITENS_' +
        'PED_PRODUTO)AND'
      '                    (ITENSPEDIDO.ITENS_PED_PEDIDO = (SELECT'
      
        '                                                      MAX(PEDIDO' +
        '.PED_CODIGO)'
      '                                                    FROM'
      
        '                                                      ITENSPEDID' +
        'O'
      
        '                                                      INNER JOIN' +
        ' PEDIDO ON (ITENSPEDIDO.ITENS_PED_PEDIDO = PEDIDO.PED_CODIGO)'
      '                                                    WHERE'
      
        '                                                      (PEDIDO.EX' +
        'CLUIDO <> '#39'S'#39' OR PEDIDO.EXCLUIDO IS NULL) AND'
      
        '                                                      (PEDIDO.PE' +
        'D_AUT_SITUACAO = '#39'S'#39') AND'
      
        '                                                      (ITENSPEDI' +
        'DO.ITENS_PED_PRODUTO = ITEM.ITENS_PED_PRODUTO)AND'
      
        '                                                      (PEDIDO.PE' +
        'D_CODIGO < PED.PED_CODIGO))'
      '                                )),0))*100)/ITEM.ITENS_PED_VALOR'
      '  )AS VARIACAO'
      'FROM'
      '  ITENSPEDIDO ITEM'
      
        '  INNER JOIN PEDIDO PED ON (ITEM.ITENS_PED_PEDIDO = PED.PED_CODI' +
        'GO)'
      
        '  INNER JOIN PRODUTO ON (ITEM.ITENS_PED_PRODUTO = PRODUTO.PROD_C' +
        'ODIGO)'
      
        '  INNER JOIN CLASSIFICACAOPRODUTO ON (CLASSIFICACAOPRODUTO.CLASS' +
        '_PROD_CODIGO = PRODUTO.PROD_CLASSIFPROD1)'
      'WHERE'
      '  (ITENSPEDIDO.ITENS_PED_PEDIDO = :PED_CODIGO)'
      'ORDER BY'
      '  7 DESC,'
      '  ITENSPEDIDO.ITENS_PED_PRODUTO,'
      '  PEDIDO.PED_CODIGO')
    Left = 392
    Top = 352
    ParamData = <
      item
        DataType = ftInteger
        Name = 'PED_CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
    object QItensAultorizacaoPROD_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'PROD_CODIGO'
    end
    object QItensAultorizacaoPROD_DESCRICAOENT: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'PROD_DESCRICAOENT'
      Size = 60
    end
    object QItensAultorizacaoITENS_PED_QUANTIDADE: TFloatField
      Alignment = taCenter
      DisplayLabel = 'Quatidade'
      FieldName = 'ITENS_PED_QUANTIDADE'
    end
    object QItensAultorizacaoITENS_PED_VALOR: TFloatField
      DisplayLabel = 'Pedido'
      FieldName = 'ITENS_PED_VALOR'
      DisplayFormat = '#,##0.0000'
    end
    object QItensAultorizacaoVALOR_ANTES: TFloatField
      DisplayLabel = 'Ult.Compra'
      FieldName = 'VALOR_ANTES'
      DisplayFormat = '#,##0.0000'
    end
    object QItensAultorizacaoDIFERENCA: TFloatField
      DisplayLabel = 'Dif.'
      FieldName = 'DIFERENCA'
      DisplayFormat = '#,##0.0000'
    end
    object QItensAultorizacaoVARIACAO: TFloatField
      DisplayLabel = '%Var'
      FieldName = 'VARIACAO'
      DisplayFormat = '0.##'
    end
  end
  object dsItensAultorizacao: TDataSource
    DataSet = QItensAultorizacao
    Left = 344
    Top = 320
  end
end
